home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1998-12-02 | 3.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| Compact Compressed (Unix) (archive/compact)
| ext
| Supported |
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 23 69 66 6e 64 65 66 20 | 6c 69 6e 74 00 00 00 00 |#ifndef |lint....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 53 69 64 20 |........|....Sid |
|00000020| 3d 20 22 24 49 64 3a 20 | 62 66 5f 74 65 73 74 2e |= "$Id: |bf_test.|
|00000030| 63 2c 76 20 31 2e 39 20 | 31 39 39 38 2f 31 32 2f |c,v 1.9 |1998/12/|
|00000040| 30 32 20 31 38 3a 33 38 | 3a 31 33 20 6c 68 65 63 |02 18:38|:13 lhec|
|00000050| 6b 69 6e 67 20 45 78 70 | 20 24 22 3b 0a 23 65 6e |king Exp| $";.#en|
|00000060| 64 69 66 0a 0a 0a 2f 2a | 0a 20 2a 20 54 65 73 74 |dif.../*|. * Test|
|00000070| 20 72 6f 75 74 69 6e 65 | 73 20 66 6f 72 20 62 69 | routine|s for bi|
|00000080| 6e 61 72 79 20 66 69 6c | 65 73 0a 20 2a 20 63 63 |nary fil|es. * cc|
|00000090| 20 62 66 5f 74 65 73 74 | 2e 63 20 2d 6f 20 62 66 | bf_test|.c -o bf|
|000000a0| 5f 74 65 73 74 20 62 69 | 6e 61 72 79 5f 66 69 6c |_test bi|nary_fil|
|000000b0| 65 73 2e 6f 20 2d 6c 6d | 0a 20 2a 0a 20 2a 20 43 |es.o -lm|. *. * C|
|000000c0| 6f 70 79 72 69 67 68 74 | 20 28 63 29 20 31 39 39 |opyright| (c) 199|
|000000d0| 32 20 52 6f 62 65 72 74 | 20 4b 2e 20 43 75 6e 6e |2 Robert| K. Cunn|
|000000e0| 69 6e 67 68 61 6d 2c 20 | 4d 49 54 20 4c 69 6e 63 |ingham, |MIT Linc|
|000000f0| 6f 6c 6e 20 4c 61 62 6f | 72 61 74 6f 72 79 0a 20 |oln Labo|ratory. |
|00000100| 2a 0a 20 2a 2f 0a 0a 2f | 2a 20 4e 6f 74 65 20 74 |*. */../|* Note t|
|00000110| 68 61 74 20 74 68 69 73 | 20 66 69 6c 65 20 69 73 |hat this| file is|
|00000120| 20 6e 6f 74 20 63 6f 6d | 70 69 6c 65 64 20 69 6e | not com|piled in|
|00000130| 74 6f 20 67 6e 75 70 6c | 6f 74 2c 20 61 6e 64 20 |to gnupl|ot, and |
|00000140| 73 6f 0a 20 2a 20 69 74 | 73 20 6d 6f 72 65 2d 72 |so. * it|s more-r|
|00000150| 65 73 74 72 69 63 74 69 | 76 65 20 63 6f 70 79 72 |estricti|ve copyr|
|00000160| 69 67 68 74 20 6e 65 65 | 64 20 6e 6f 74 20 61 70 |ight nee|d not ap|
|00000170| 70 6c 79 20 74 6f 20 67 | 6e 75 70 6c 6f 74 0a 20 |ply to g|nuplot. |
|00000180| 2a 20 61 73 20 61 20 77 | 68 6f 6c 65 2e 20 28 49 |* as a w|hole. (I|
|00000190| 20 74 68 69 6e 6b 2e 29 | 0a 20 2a 2f 0a 0a 23 69 | think.)|. */..#i|
|000001a0| 66 64 65 66 20 48 41 56 | 45 5f 43 4f 4e 46 49 47 |fdef HAV|E_CONFIG|
|000001b0| 5f 48 0a 23 69 6e 63 6c | 75 64 65 20 22 63 6f 6e |_H.#incl|ude "con|
|000001c0| 66 69 67 2e 68 22 0a 23 | 65 6e 64 69 66 0a 0a 23 |fig.h".#|endif..#|
|000001d0| 69 6e 63 6c 75 64 65 20 | 22 61 6e 73 69 63 68 65 |include |"ansiche|
|000001e0| 6b 2e 68 22 0a 23 69 6e | 63 6c 75 64 65 20 22 73 |k.h".#in|clude "s|
|000001f0| 74 64 66 6e 2e 68 22 0a | 23 64 65 66 69 6e 65 20 |tdfn.h".|#define |
|00000200| 47 50 46 41 52 20 2f 2a | 2a 2f 0a 23 69 6e 63 6c |GPFAR /*|*/.#incl|
|00000210| 75 64 65 20 22 62 69 6e | 61 72 79 2e 68 22 0a 23 |ude "bin|ary.h".#|
|00000220| 69 6e 63 6c 75 64 65 20 | 22 61 6c 6c 6f 63 2e 68 |include |"alloc.h|
|00000230| 22 0a 0a 76 6f 69 64 20 | 69 6e 74 5f 65 72 72 6f |"..void |int_erro|
|00000240| 72 20 5f 5f 50 52 4f 54 | 4f 28 28 63 68 61 72 20 |r __PROT|O((char |
|00000250| 2a 65 72 72 6f 72 5f 74 | 65 78 74 2c 20 69 6e 74 |*error_t|ext, int|
|00000260| 20 64 75 6d 6d 79 29 29 | 3b 0a 76 6f 69 64 20 46 | dummy))|;.void F|
|00000270| 72 65 65 48 65 6c 70 20 | 5f 5f 50 52 4f 54 4f 28 |reeHelp |__PROTO(|
|00000280| 28 76 6f 69 64 29 29 3b | 0a 66 6c 6f 61 74 20 66 |(void));|.float f|
|00000290| 75 6e 63 74 69 6f 6e 20 | 5f 5f 50 52 4f 54 4f 28 |unction |__PROTO(|
|000002a0| 28 69 6e 74 20 70 2c 20 | 64 6f 75 62 6c 65 20 78 |(int p, |double x|
|000002b0| 2c 20 64 6f 75 62 6c 65 | 20 79 29 29 3b 0a 0a 0a |, double| y));...|
|000002c0| 74 79 70 65 64 65 66 20 | 73 74 72 75 63 74 20 7b |typedef |struct {|
|000002d0| 0a 20 20 66 6c 6f 61 74 | 20 78 6d 69 6e 2c 20 78 |. float| xmin, x|
|000002e0| 6d 61 78 3b 0a 20 20 66 | 6c 6f 61 74 20 79 6d 69 |max;. f|loat ymi|
|000002f0| 6e 2c 20 79 6d 61 78 3b | 0a 7d 20 72 61 6e 67 65 |n, ymax;|.} range|
|00000300| 3b 0a 0a 23 64 65 66 69 | 6e 65 20 4e 55 4d 5f 50 |;..#defi|ne NUM_P|
|00000310| 4c 4f 54 53 20 32 0a 72 | 61 6e 67 65 20 54 68 65 |LOTS 2.r|ange The|
|00000320| 52 61 6e 67 65 5b 5d 20 | 3d 20 7b 7b 2d 33 2c 33 |Range[] |= {{-3,3|
|00000330| 2c 2d 32 2c 32 7d 2c 0a | 20 20 20 20 20 20 20 20 |,-2,2},.| |
|00000340| 20 20 20 20 20 20 20 20 | 20 20 20 20 7b 2d 33 2c | | {-3,|
|00000350| 33 2c 2d 33 2c 33 7d 2c | 0a 20 20 20 20 20 20 20 |3,-3,3},|. |
|00000360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 7b 2d 33 | | {-3|
|00000370| 2c 33 2c 2d 33 2c 33 7d | 7d 3b 2f 2a 20 53 61 6d |,3,-3,3}|};/* Sam|
|00000380| 70 6c 69 6e 67 20 72 61 | 74 65 20 63 61 75 73 65 |pling ra|te cause|
|00000390| 73 20 74 68 69 73 20 74 | 6f 20 67 6f 20 66 72 6f |s this t|o go fro|
|000003a0| 6d 20 2d 33 3a 36 2a 2f | 0a 0a 2f 2a 2d 2d 2d 2d |m -3:6*/|../*----|
|000003b0| 20 53 74 75 62 73 20 74 | 6f 20 6d 61 6b 65 20 74 | Stubs t|o make t|
|000003c0| 68 69 73 20 77 6f 72 6b | 20 77 69 74 68 6f 75 74 |his work| without|
|000003d0| 20 69 6e 63 6c 75 64 69 | 6e 67 20 68 75 67 65 20 | includi|ng huge |
|000003e0| 6c 69 62 72 61 72 69 65 | 73 20 2d 2d 2d 2d 2a 2f |librarie|s ----*/|
|000003f0| 0a 76 6f 69 64 20 69 6e | 74 5f 65 72 72 6f 72 28 |.void in|t_error(|
|00000400| 65 72 72 6f 72 5f 74 65 | 78 74 2c 20 64 75 6d 6d |error_te|xt, dumm|
|00000410| 79 29 0a 63 68 61 72 20 | 2a 65 72 72 6f 72 5f 74 |y).char |*error_t|
|00000420| 65 78 74 3b 0a 69 6e 74 | 20 64 75 6d 6d 79 3b 0a |ext;.int| dummy;.|
|00000430| 7b 0a 20 20 20 20 66 70 | 72 69 6e 74 66 28 73 74 |{. fp|rintf(st|
|00000440| 64 65 72 72 2c 20 22 46 | 61 74 61 6c 20 65 72 72 |derr, "F|atal err|
|00000450| 6f 72 2e 2e 5c 6e 25 73 | 5c 6e 2e 2e 2e 6e 6f 77 |or..\n%s|\n...now|
|00000460| 20 65 78 69 74 69 6e 67 | 20 74 6f 20 73 79 73 74 | exiting| to syst|
|00000470| 65 6d 20 2e 2e 2e 5c 6e | 22 2c 0a 09 20 20 20 20 |em ...\n|",.. |
|00000480| 65 72 72 6f 72 5f 74 65 | 78 74 29 3b 0a 20 20 20 |error_te|xt);. |
|00000490| 20 65 78 69 74 28 45 58 | 49 54 5f 46 41 49 4c 55 | exit(EX|IT_FAILU|
|000004a0| 52 45 29 3b 0a 7d 0a 0a | 0a 76 6f 69 64 20 46 72 |RE);.}..|.void Fr|
|000004b0| 65 65 48 65 6c 70 28 29 | 0a 7b 0a 7d 0a 2f 2a 2d |eeHelp()|.{.}./*-|
|000004c0| 2d 2d 2d 20 45 6e 64 20 | 6f 66 20 73 74 75 62 73 |--- End |of stubs|
|000004d0| 20 2d 2d 2d 2d 2a 2f 0a | 0a 0a 66 6c 6f 61 74 20 | ----*/.|..float |
|000004e0| 66 75 6e 63 74 69 6f 6e | 28 70 2c 20 78 2c 20 79 |function|(p, x, y|
|000004f0| 29 0a 69 6e 74 20 70 3b | 0a 64 6f 75 62 6c 65 20 |).int p;|.double |
|00000500| 78 2c 20 79 3b 0a 7b 0a | 20 20 20 20 66 6c 6f 61 |x, y;.{.| floa|
|00000510| 74 20 74 3b 0a 20 20 20 | 20 73 77 69 74 63 68 20 |t t;. | switch |
|00000520| 28 70 29 20 7b 0a 20 20 | 20 20 63 61 73 65 20 30 |(p) {. | case 0|
|00000530| 3a 0a 09 74 20 3d 20 31 | 2e 30 20 2f 20 28 78 20 |:..t = 1|.0 / (x |
|00000540| 2a 20 78 20 2b 20 79 20 | 2a 20 79 20 2b 20 31 2e |* x + y |* y + 1.|
|00000550| 30 29 3b 0a 09 62 72 65 | 61 6b 3b 0a 20 20 20 20 |0);..bre|ak;. |
|00000560| 63 61 73 65 20 31 3a 0a | 09 74 20 3d 20 73 69 6e |case 1:.|.t = sin|
|00000570| 28 78 20 2a 20 78 20 2b | 20 79 20 2a 20 79 29 20 |(x * x +| y * y) |
|00000580| 2f 20 28 78 20 2a 20 78 | 20 2b 20 79 20 2a 20 79 |/ (x * x| + y * y|
|00000590| 29 3b 0a 09 69 66 20 28 | 74 20 3e 20 31 2e 30 29 |);..if (|t > 1.0)|
|000005a0| 0a 09 20 20 20 20 74 20 | 3d 20 31 2e 30 3b 0a 09 |.. t |= 1.0;..|
|000005b0| 62 72 65 61 6b 3b 0a 20 | 20 20 20 63 61 73 65 20 |break;. | case |
|000005c0| 32 3a 0a 09 74 20 3d 20 | 73 69 6e 28 78 20 2a 20 |2:..t = |sin(x * |
|000005d0| 78 20 2b 20 79 20 2a 20 | 79 29 20 2f 20 28 78 20 |x + y * |y) / (x |
|000005e0| 2a 20 78 20 2b 20 79 20 | 2a 20 79 29 3b 0a 09 2f |* x + y |* y);../|
|000005f0| 2a 20 73 69 6e 63 20 6d | 6f 64 75 6c 61 74 65 64 |* sinc m|odulated|
|00000600| 20 73 69 6e 63 20 2a 2f | 0a 09 74 20 2a 3d 20 73 | sinc */|..t *= s|
|00000610| 69 6e 28 34 2e 20 2a 20 | 28 78 20 2a 20 78 20 2b |in(4. * |(x * x +|
|00000620| 20 79 20 2a 20 79 29 29 | 20 2f 20 28 34 2e 20 2a | y * y))| / (4. *|
|00000630| 20 28 78 20 2a 20 78 20 | 2b 20 79 20 2a 20 79 29 | (x * x |+ y * y)|
|00000640| 29 3b 0a 09 69 66 20 28 | 74 20 3e 20 31 2e 30 29 |);..if (|t > 1.0)|
|00000650| 0a 09 20 20 20 20 74 20 | 3d 20 31 2e 30 3b 0a 09 |.. t |= 1.0;..|
|00000660| 62 72 65 61 6b 3b 0a 20 | 20 20 20 64 65 66 61 75 |break;. | defau|
|00000670| 6c 74 3a 0a 09 66 70 72 | 69 6e 74 66 28 73 74 64 |lt:..fpr|intf(std|
|00000680| 65 72 72 2c 20 22 55 6e | 6b 6e 6f 77 6e 20 66 75 |err, "Un|known fu|
|00000690| 6e 63 74 69 6f 6e 5c 6e | 22 29 3b 0a 09 62 72 65 |nction\n|");..bre|
|000006a0| 61 6b 3b 0a 20 20 20 20 | 7d 0a 20 20 20 20 72 65 |ak;. |}. re|
|000006b0| 74 75 72 6e 20 74 3b 0a | 7d 0a 0a 23 64 65 66 69 |turn t;.|}..#defi|
|000006c0| 6e 65 20 49 53 4f 53 41 | 4d 50 4c 45 53 20 28 64 |ne ISOSA|MPLES (d|
|000006d0| 6f 75 62 6c 65 29 35 0a | 69 6e 74 20 6d 61 69 6e |ouble)5.|int main|
|000006e0| 28 29 0a 7b 0a 20 20 20 | 20 69 6e 74 20 70 6c 6f |().{. | int plo|
|000006f0| 74 3b 0a 20 20 20 20 69 | 6e 74 20 69 2c 20 6a 3b |t;. i|nt i, j;|
|00000700| 0a 20 20 20 20 66 6c 6f | 61 74 20 78 2c 20 79 3b |. flo|at x, y;|
|00000710| 0a 20 20 20 20 66 6c 6f | 61 74 20 2a 72 74 2c 20 |. flo|at *rt, |
|00000720| 2a 63 74 3b 0a 20 20 20 | 20 66 6c 6f 61 74 20 2a |*ct;. | float *|
|00000730| 2a 6d 3b 0a 20 20 20 20 | 69 6e 74 20 78 73 69 7a |*m;. |int xsiz|
|00000740| 65 2c 20 79 73 69 7a 65 | 3b 0a 20 20 20 20 63 68 |e, ysize|;. ch|
|00000750| 61 72 20 62 75 66 5b 32 | 35 36 5d 3b 0a 20 20 20 |ar buf[2|56];. |
|00000760| 20 46 49 4c 45 20 2a 66 | 6f 75 74 3b 0a 2f 2a 20 | FILE *f|out;./* |
|00000770| 20 43 72 65 61 74 65 20 | 61 20 66 65 77 20 73 74 | Create |a few st|
|00000780| 61 6e 64 61 72 64 20 74 | 65 73 74 20 69 6e 74 65 |andard t|est inte|
|00000790| 72 66 61 63 65 73 20 2a | 2f 0a 0a 20 20 20 20 66 |rfaces *|/.. f|
|000007a0| 6f 72 20 28 70 6c 6f 74 | 20 3d 20 30 3b 20 70 6c |or (plot| = 0; pl|
|000007b0| 6f 74 20 3c 20 4e 55 4d | 5f 50 4c 4f 54 53 3b 20 |ot < NUM|_PLOTS; |
|000007c0| 70 6c 6f 74 2b 2b 29 20 | 7b 0a 09 78 73 69 7a 65 |plot++) |{..xsize|
|000007d0| 20 3d 20 28 54 68 65 52 | 61 6e 67 65 5b 70 6c 6f | = (TheR|ange[plo|
|000007e0| 74 5d 2e 78 6d 61 78 20 | 2d 20 54 68 65 52 61 6e |t].xmax |- TheRan|
|000007f0| 67 65 5b 70 6c 6f 74 5d | 2e 78 6d 69 6e 29 20 2a |ge[plot]|.xmin) *|
|00000800| 20 49 53 4f 53 41 4d 50 | 4c 45 53 20 2b 20 31 3b | ISOSAMP|LES + 1;|
|00000810| 0a 09 79 73 69 7a 65 20 | 3d 20 28 54 68 65 52 61 |..ysize |= (TheRa|
|00000820| 6e 67 65 5b 70 6c 6f 74 | 5d 2e 79 6d 61 78 20 2d |nge[plot|].ymax -|
|00000830| 20 54 68 65 52 61 6e 67 | 65 5b 70 6c 6f 74 5d 2e | TheRang|e[plot].|
|00000840| 79 6d 69 6e 29 20 2a 20 | 49 53 4f 53 41 4d 50 4c |ymin) * |ISOSAMPL|
|00000850| 45 53 20 2b 20 31 3b 0a | 0a 09 72 74 20 3d 20 76 |ES + 1;.|..rt = v|
|00000860| 65 63 74 6f 72 28 30 2c | 20 78 73 69 7a 65 20 2d |ector(0,| xsize -|
|00000870| 20 31 29 3b 0a 09 63 74 | 20 3d 20 76 65 63 74 6f | 1);..ct| = vecto|
|00000880| 72 28 30 2c 20 79 73 69 | 7a 65 20 2d 20 31 29 3b |r(0, ysi|ze - 1);|
|00000890| 0a 09 6d 20 3d 20 6d 61 | 74 72 69 78 28 30 2c 20 |..m = ma|trix(0, |
|000008a0| 78 73 69 7a 65 20 2d 20 | 31 2c 20 30 2c 20 79 73 |xsize - |1, 0, ys|
|000008b0| 69 7a 65 20 2d 20 31 29 | 3b 0a 0a 09 66 6f 72 20 |ize - 1)|;...for |
|000008c0| 28 79 20 3d 20 54 68 65 | 52 61 6e 67 65 5b 70 6c |(y = The|Range[pl|
|000008d0| 6f 74 5d 2e 79 6d 69 6e | 2c 20 6a 20 3d 20 30 3b |ot].ymin|, j = 0;|
|000008e0| 20 6a 20 3c 20 79 73 69 | 7a 65 3b 20 6a 2b 2b 2c | j < ysi|ze; j++,|
|000008f0| 20 79 20 2b 3d 20 31 2e | 30 20 2f 20 28 64 6f 75 | y += 1.|0 / (dou|
|00000900| 62 6c 65 29 20 49 53 4f | 53 41 4d 50 4c 45 53 29 |ble) ISO|SAMPLES)|
|00000910| 20 7b 0a 09 20 20 20 20 | 63 74 5b 6a 5d 20 3d 20 | {.. |ct[j] = |
|00000920| 79 3b 0a 09 7d 0a 0a 09 | 66 6f 72 20 28 78 20 3d |y;..}...|for (x =|
|00000930| 20 54 68 65 52 61 6e 67 | 65 5b 70 6c 6f 74 5d 2e | TheRang|e[plot].|
|00000940| 78 6d 69 6e 2c 20 69 20 | 3d 20 30 3b 20 69 20 3c |xmin, i |= 0; i <|
|00000950| 20 78 73 69 7a 65 3b 20 | 69 2b 2b 2c 20 78 20 2b | xsize; |i++, x +|
|00000960| 3d 20 31 2e 30 20 2f 20 | 28 64 6f 75 62 6c 65 29 |= 1.0 / |(double)|
|00000970| 20 49 53 4f 53 41 4d 50 | 4c 45 53 29 20 7b 0a 09 | ISOSAMP|LES) {..|
|00000980| 20 20 20 20 72 74 5b 69 | 5d 20 3d 20 78 3b 0a 09 | rt[i|] = x;..|
|00000990| 20 20 20 20 66 6f 72 20 | 28 79 20 3d 20 54 68 65 | for |(y = The|
|000009a0| 52 61 6e 67 65 5b 70 6c | 6f 74 5d 2e 79 6d 69 6e |Range[pl|ot].ymin|
|000009b0| 2c 20 6a 20 3d 20 30 3b | 20 6a 20 3c 20 79 73 69 |, j = 0;| j < ysi|
|000009c0| 7a 65 3b 20 6a 2b 2b 2c | 20 79 20 2b 3d 20 31 2e |ze; j++,| y += 1.|
|000009d0| 30 20 2f 20 28 64 6f 75 | 62 6c 65 29 20 49 53 4f |0 / (dou|ble) ISO|
|000009e0| 53 41 4d 50 4c 45 53 29 | 20 7b 0a 09 09 6d 5b 69 |SAMPLES)| {...m[i|
|000009f0| 5d 5b 6a 5d 20 3d 20 66 | 75 6e 63 74 69 6f 6e 28 |][j] = f|unction(|
|00000a00| 70 6c 6f 74 2c 20 78 2c | 20 79 29 3b 0a 09 20 20 |plot, x,| y);.. |
|00000a10| 20 20 7d 0a 09 7d 0a 0a | 09 73 70 72 69 6e 74 66 | }..}..|.sprintf|
|00000a20| 28 62 75 66 2c 20 22 62 | 69 6e 61 72 79 25 64 22 |(buf, "b|inary%d"|
|00000a30| 2c 20 70 6c 6f 74 20 2b | 20 31 29 3b 0a 09 69 66 |, plot +| 1);..if|
|00000a40| 20 28 21 28 66 6f 75 74 | 20 3d 20 66 6f 70 65 6e | (!(fout| = fopen|
|00000a50| 28 62 75 66 2c 20 22 77 | 62 22 29 29 29 0a 09 20 |(buf, "w|b"))).. |
|00000a60| 20 20 20 69 6e 74 5f 65 | 72 72 6f 72 28 22 43 6f | int_e|rror("Co|
|00000a70| 75 6c 64 20 6e 6f 74 20 | 6f 70 65 6e 20 66 69 6c |uld not |open fil|
|00000a80| 65 22 2c 20 30 29 3b 0a | 09 65 6c 73 65 20 7b 0a |e", 0);.|.else {.|
|00000a90| 09 20 20 20 20 66 77 72 | 69 74 65 5f 6d 61 74 72 |. fwr|ite_matr|
|00000aa0| 69 78 28 66 6f 75 74 2c | 20 6d 2c 20 30 2c 20 78 |ix(fout,| m, 0, x|
|00000ab0| 73 69 7a 65 20 2d 20 31 | 2c 20 30 2c 20 79 73 69 |size - 1|, 0, ysi|
|00000ac0| 7a 65 20 2d 20 31 2c 20 | 72 74 2c 20 63 74 29 3b |ze - 1, |rt, ct);|
|00000ad0| 0a 09 7d 0a 09 66 72 65 | 65 5f 76 65 63 74 6f 72 |..}..fre|e_vector|
|00000ae0| 28 72 74 2c 20 30 2c 20 | 79 73 69 7a 65 20 2d 20 |(rt, 0, |ysize - |
|00000af0| 31 29 3b 0a 09 66 72 65 | 65 5f 76 65 63 74 6f 72 |1);..fre|e_vector|
|00000b00| 28 63 74 2c 20 30 2c 20 | 78 73 69 7a 65 20 2d 20 |(ct, 0, |xsize - |
|00000b10| 31 29 3b 0a 09 66 72 65 | 65 5f 6d 61 74 72 69 78 |1);..fre|e_matrix|
|00000b20| 28 6d 2c 20 30 2c 20 78 | 73 69 7a 65 20 2d 20 31 |(m, 0, x|size - 1|
|00000b30| 2c 20 30 2c 20 79 73 69 | 7a 65 20 2d 20 31 29 3b |, 0, ysi|ze - 1);|
|00000b40| 0a 20 20 20 20 7d 0a 0a | 20 20 20 20 2f 2a 20 53 |. }..| /* S|
|00000b50| 68 6f 77 20 74 68 61 74 | 20 69 74 27 73 20 6f 6b |how that| it's ok|
|00000b60| 20 74 6f 20 76 61 72 79 | 20 73 61 6d 70 6c 69 6e | to vary| samplin|
|00000b70| 67 20 72 61 74 65 2c 20 | 61 73 20 6c 6f 6e 67 20 |g rate, |as long |
|00000b80| 61 73 20 78 31 3c 78 32 | 2c 20 79 31 3c 79 32 2e |as x1<x2|, y1<y2.|
|00000b90| 2e 2e 20 2a 2f 0a 20 20 | 20 20 78 73 69 7a 65 20 |.. */. | xsize |
|00000ba0| 3d 20 28 54 68 65 52 61 | 6e 67 65 5b 70 6c 6f 74 |= (TheRa|nge[plot|
|00000bb0| 5d 2e 78 6d 61 78 20 2d | 20 54 68 65 52 61 6e 67 |].xmax -| TheRang|
|00000bc0| 65 5b 70 6c 6f 74 5d 2e | 78 6d 69 6e 29 20 2a 20 |e[plot].|xmin) * |
|00000bd0| 49 53 4f 53 41 4d 50 4c | 45 53 20 2b 20 31 3b 0a |ISOSAMPL|ES + 1;.|
|00000be0| 20 20 20 20 79 73 69 7a | 65 20 3d 20 28 54 68 65 | ysiz|e = (The|
|00000bf0| 52 61 6e 67 65 5b 70 6c | 6f 74 5d 2e 79 6d 61 78 |Range[pl|ot].ymax|
|00000c00| 20 2d 20 54 68 65 52 61 | 6e 67 65 5b 70 6c 6f 74 | - TheRa|nge[plot|
|00000c10| 5d 2e 79 6d 69 6e 29 20 | 2a 20 49 53 4f 53 41 4d |].ymin) |* ISOSAM|
|00000c20| 50 4c 45 53 20 2b 20 31 | 3b 0a 0a 20 20 20 20 72 |PLES + 1|;.. r|
|00000c30| 74 20 3d 20 76 65 63 74 | 6f 72 28 30 2c 20 78 73 |t = vect|or(0, xs|
|00000c40| 69 7a 65 20 2d 20 31 29 | 3b 0a 20 20 20 20 63 74 |ize - 1)|;. ct|
|00000c50| 20 3d 20 76 65 63 74 6f | 72 28 30 2c 20 79 73 69 | = vecto|r(0, ysi|
|00000c60| 7a 65 20 2d 20 31 29 3b | 0a 20 20 20 20 6d 20 3d |ze - 1);|. m =|
|00000c70| 20 6d 61 74 72 69 78 28 | 30 2c 20 78 73 69 7a 65 | matrix(|0, xsize|
|00000c80| 20 2d 20 31 2c 20 30 2c | 20 79 73 69 7a 65 20 2d | - 1, 0,| ysize -|
|00000c90| 20 31 29 3b 0a 0a 20 20 | 20 20 66 6f 72 20 28 79 | 1);.. | for (y|
|00000ca0| 20 3d 20 54 68 65 52 61 | 6e 67 65 5b 70 6c 6f 74 | = TheRa|nge[plot|
|00000cb0| 5d 2e 79 6d 69 6e 2c 20 | 6a 20 3d 20 30 3b 20 6a |].ymin, |j = 0; j|
|00000cc0| 20 3c 20 79 73 69 7a 65 | 3b 20 6a 2b 2b 2c 20 79 | < ysize|; j++, y|
|00000cd0| 20 2b 3d 20 31 2e 30 20 | 2f 20 28 64 6f 75 62 6c | += 1.0 |/ (doubl|
|00000ce0| 65 29 20 49 53 4f 53 41 | 4d 50 4c 45 53 29 20 7b |e) ISOSA|MPLES) {|
|00000cf0| 0a 09 63 74 5b 6a 5d 20 | 3d 20 79 20 3e 20 30 20 |..ct[j] |= y > 0 |
|00000d00| 3f 20 32 20 2a 20 79 20 | 3a 20 79 3b 0a 20 20 20 |? 2 * y |: y;. |
|00000d10| 20 7d 0a 20 20 20 20 66 | 6f 72 20 28 78 20 3d 20 | }. f|or (x = |
|00000d20| 54 68 65 52 61 6e 67 65 | 5b 70 6c 6f 74 5d 2e 78 |TheRange|[plot].x|
|00000d30| 6d 69 6e 2c 20 69 20 3d | 20 30 3b 20 69 20 3c 20 |min, i =| 0; i < |
|00000d40| 78 73 69 7a 65 3b 20 69 | 2b 2b 2c 20 78 20 2b 3d |xsize; i|++, x +=|
|00000d50| 20 31 2e 30 20 2f 20 28 | 64 6f 75 62 6c 65 29 20 | 1.0 / (|double) |
|00000d60| 49 53 4f 53 41 4d 50 4c | 45 53 29 20 7b 0a 09 72 |ISOSAMPL|ES) {..r|
|00000d70| 74 5b 69 5d 20 3d 20 78 | 20 3e 20 30 20 3f 20 32 |t[i] = x| > 0 ? 2|
|00000d80| 20 2a 20 78 20 3a 20 78 | 3b 0a 09 66 6f 72 20 28 | * x : x|;..for (|
|00000d90| 79 20 3d 20 54 68 65 52 | 61 6e 67 65 5b 70 6c 6f |y = TheR|ange[plo|
|00000da0| 74 5d 2e 79 6d 69 6e 2c | 20 6a 20 3d 20 30 3b 20 |t].ymin,| j = 0; |
|00000db0| 6a 20 3c 20 79 73 69 7a | 65 3b 20 6a 2b 2b 2c 20 |j < ysiz|e; j++, |
|00000dc0| 79 20 2b 3d 20 31 2e 30 | 20 2f 20 28 64 6f 75 62 |y += 1.0| / (doub|
|00000dd0| 6c 65 29 20 49 53 4f 53 | 41 4d 50 4c 45 53 29 20 |le) ISOS|AMPLES) |
|00000de0| 7b 0a 09 20 20 20 20 6d | 5b 69 5d 5b 6a 5d 20 3d |{.. m|[i][j] =|
|00000df0| 20 66 75 6e 63 74 69 6f | 6e 28 70 6c 6f 74 2c 20 | functio|n(plot, |
|00000e00| 78 2c 20 79 29 3b 0a 09 | 7d 0a 20 20 20 20 7d 0a |x, y);..|}. }.|
|00000e10| 0a 20 20 20 20 73 70 72 | 69 6e 74 66 28 62 75 66 |. spr|intf(buf|
|00000e20| 2c 20 22 62 69 6e 61 72 | 79 25 64 22 2c 20 70 6c |, "binar|y%d", pl|
|00000e30| 6f 74 20 2b 20 31 29 3b | 0a 20 20 20 20 69 66 20 |ot + 1);|. if |
|00000e40| 28 21 28 66 6f 75 74 20 | 3d 20 66 6f 70 65 6e 28 |(!(fout |= fopen(|
|00000e50| 62 75 66 2c 20 22 77 62 | 22 29 29 29 0a 09 69 6e |buf, "wb|")))..in|
|00000e60| 74 5f 65 72 72 6f 72 28 | 22 43 6f 75 6c 64 20 6e |t_error(|"Could n|
|00000e70| 6f 74 20 6f 70 65 6e 20 | 66 69 6c 65 22 2c 20 30 |ot open |file", 0|
|00000e80| 29 3b 0a 20 20 20 20 65 | 6c 73 65 20 7b 0a 09 66 |);. e|lse {..f|
|00000e90| 77 72 69 74 65 5f 6d 61 | 74 72 69 78 28 66 6f 75 |write_ma|trix(fou|
|00000ea0| 74 2c 20 6d 2c 20 30 2c | 20 78 73 69 7a 65 20 2d |t, m, 0,| xsize -|
|00000eb0| 20 31 2c 20 30 2c 20 79 | 73 69 7a 65 20 2d 20 31 | 1, 0, y|size - 1|
|00000ec0| 2c 20 72 74 2c 20 63 74 | 29 3b 0a 20 20 20 20 7d |, rt, ct|);. }|
|00000ed0| 0a 20 20 20 20 66 72 65 | 65 5f 76 65 63 74 6f 72 |. fre|e_vector|
|00000ee0| 28 72 74 2c 20 30 2c 20 | 79 73 69 7a 65 20 2d 20 |(rt, 0, |ysize - |
|00000ef0| 31 29 3b 0a 20 20 20 20 | 66 72 65 65 5f 76 65 63 |1);. |free_vec|
|00000f00| 74 6f 72 28 63 74 2c 20 | 30 2c 20 78 73 69 7a 65 |tor(ct, |0, xsize|
|00000f10| 20 2d 20 31 29 3b 0a 20 | 20 20 20 66 72 65 65 5f | - 1);. | free_|
|00000f20| 6d 61 74 72 69 78 28 6d | 2c 20 30 2c 20 78 73 69 |matrix(m|, 0, xsi|
|00000f30| 7a 65 20 2d 20 31 2c 20 | 30 2c 20 79 73 69 7a 65 |ze - 1, |0, ysize|
|00000f40| 20 2d 20 31 29 3b 0a 0a | 20 20 20 20 65 78 69 74 | - 1);..| exit|
|00000f50| 28 45 58 49 54 5f 53 55 | 43 43 45 53 53 29 3b 0a |(EXIT_SU|CCESS);.|
|00000f60| 7d 0a | |}. | |
+--------+-------------------------+-------------------------+--------+--------+
